home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Just Call Me Internet
/
Just Call Me Internet.iso
/
prog
/
atari
/
m2
/
cat3src
/
cat
/
vdiutil.d
< prev
next >
Wrap
Text File
|
1997-10-26
|
1KB
|
28 lines
DEFINITION MODULE VDIUtil;
FROM SYSTEM IMPORT ADDRESS;
PROCEDURE SetObjColor (tr: ADDRESS; ob : INTEGER; foreground, background : INTEGER);
(* Setzt die Farbe fr ein Objekt *)
PROCEDURE SetTreeColor (tr: ADDRESS; foreground, background : INTEGER);
(* Farben fr einen Objektbaum setzen *)
PROCEDURE SetLongIntStr (tree: ADDRESS; obj: INTEGER; val : LONGINT);
PROCEDURE GetLongIntStr (tree: ADDRESS; obj: INTEGER; VAR val : LONGINT);
PROCEDURE SetIntStr (tree: ADDRESS; obj: INTEGER; val : INTEGER);
PROCEDURE GetIntStr (tree: ADDRESS; obj: INTEGER; VAR val : INTEGER);
PROCEDURE SetXString (tree : ADDRESS; obj: INTEGER;
sTree : ADDRESS; idx: INTEGER);
PROCEDURE SetXState (tree : ADDRESS; obj: INTEGER; xState : INTEGER);
PROCEDURE GetXState (tree : ADDRESS; obj: INTEGER) : INTEGER;
PROCEDURE FormHandle(form : ADDRESS):INTEGER;
PROCEDURE isKey(VAR kstate : BITSET; VAR scan, char : CHAR):BOOLEAN;
(* sieht per event_multi nach, ob ein Buchstabe vorliegt *)
END VDIUtil.